object frmOC_Fact: TfrmOC_Fact
  Left = 16
  Top = 131
  Width = 979
  Height = 437
  Caption = 'Comparar Orden de Compra con Facturas...'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    971
    407)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 352
    Top = 6
    Width = 110
    Height = 24
    Caption = 'FACTURAS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 6
    Width = 202
    Height = 24
    Caption = 'ORDEN DE COMPRA'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 8
    Top = 29
    Width = 65
    Height = 17
    DataField = 'FECHA'
    DataSource = sOC
  end
  object DBText2: TDBText
    Left = 88
    Top = 29
    Width = 257
    Height = 17
    DataField = 'RAZON'
    DataSource = sOC
  end
  object RxDBGrid1: TRxDBGrid
    Left = 8
    Top = 48
    Width = 337
    Height = 345
    Anchors = [akLeft, akTop, akBottom]
    DataSource = sOC
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CANTIDAD'
        Title.Alignment = taCenter
        Title.Caption = 'Cantidad'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MATERIAL'
        Title.Alignment = taCenter
        Title.Caption = 'Material'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 226
        Visible = True
      end>
  end
  object RxDBGrid2: TRxDBGrid
    Left = 352
    Top = 48
    Width = 613
    Height = 345
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = sFactura
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CANTIDAD'
        Title.Alignment = taCenter
        Title.Caption = 'Cantidad'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MATERIAL'
        Title.Alignment = taCenter
        Title.Caption = 'Material'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 184
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NUMERO'
        Title.Alignment = taCenter
        Title.Caption = 'N'#186' Fact.'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FECHA'
        Title.Alignment = taCenter
        Title.Caption = 'Fecha'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RAZON'
        Title.Alignment = taCenter
        Title.Caption = 'Raz'#243'n'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 175
        Visible = True
      end>
  end
  object cdsFactura: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'  RENGLON_COMPRA_NEW.CANTIDAD,'#13#10'  RENGLON_COMPRA_NEW.MA' +
      'TERIAL,'#13#10'  COMPRA.NUMERO,'#13#10'  COMPRA.FECHA,'#13#10'  PROVEEDOR.RAZON'#13#10'F' +
      'ROM'#13#10'  RENGLON_COMPRA_NEW'#13#10'  INNER JOIN COMPRA ON (RENGLON_COMPR' +
      'A_NEW.ID_COMPRA = COMPRA.ID_COMPRA)'#13#10'  INNER JOIN PROVEEDOR ON (' +
      'COMPRA.ID_PROVEEDOR = PROVEEDOR.ID_PROVEEDOR)'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 408
    Top = 360
    object cdsFacturaMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Required = True
      Size = 50
    end
    object cdsFacturaCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
      Required = True
    end
    object cdsFacturaNUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object cdsFacturaRAZON: TStringField
      FieldName = 'RAZON'
      Required = True
      Size = 40
    end
    object cdsFacturaFECHA: TSQLTimeStampField
      FieldName = 'FECHA'
      Required = True
    end
  end
  object sFactura: TDataSource
    DataSet = cdsFactura
    Left = 440
    Top = 360
  end
  object cdsOC: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'  RENGLON_ORDENCOMPRA.CANTIDAD,'#13#10'  MATERIAL.MATERIAL,'#13#10 +
      '  PROVEEDOR.RAZON,'#13#10'  ORDENCOMPRA.FECHA'#13#10'FROM'#13#10'  RENGLON_ORDENCO' +
      'MPRA'#13#10'  INNER JOIN ORDENCOMPRA ON (RENGLON_ORDENCOMPRA.NUMERO = ' +
      'ORDENCOMPRA.NUMERO)'#13#10'  INNER JOIN MATERIAL ON (RENGLON_ORDENCOMP' +
      'RA.ID_MATERIAL = MATERIAL.ID_MATERIAL)'#13#10'  INNER JOIN PROVEEDOR O' +
      'N (ORDENCOMPRA.ID_PROVEEDOR = PROVEEDOR.ID_PROVEEDOR)'#13#10'WHERE'#13#10'  ' +
      'ORDENCOMPRA.NUMERO = :OC'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'OC'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 24
    Top = 360
    object cdsOCCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
      Required = True
    end
    object cdsOCMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Required = True
      Size = 50
    end
    object cdsOCRAZON: TStringField
      FieldName = 'RAZON'
      Required = True
      Size = 40
    end
    object cdsOCFECHA: TDateField
      FieldName = 'FECHA'
      Required = True
    end
  end
  object sOC: TDataSource
    DataSet = cdsOC
    Left = 56
    Top = 360
  end
end
